home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / COLOR TEXT GRAPHICS 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  63 lines
  1. 10  HOME 
  2. 20  REM  COLOR TEXT GRAPHICS         =====
  3. 30  REM 
  4. 40  REM  PAUL'S ELECTRIC COMPUTER
  5. 50  REM  PAUL RAYMER, AGAIN
  6. 60  REM  POB 42831
  7. 70  REM  LAS VEGAS NV 89116
  8. 80  REM 
  9. 90  REM  VII/V/MCMLXXXI
  10. 100  REM 
  11. 105  REM  (C)1981 NIBBLE
  12. 106  REM 
  13. 110  REM  == FULL SCREEN ==              ---- ------
  14. 120  GR 
  15. 130  VTAB 1: HTAB 1
  16. 140  REM 
  17. 150  REM  FILL SCREEN WITH NO-NO
  18. 160  REM 
  19. 170 J = 59: GOSUB 600
  20. 180  REM 
  21. 190  REM  BUILD FIRST LINE
  22. 200  REM  WITH INVERSE THING
  23. 210  REM 
  24. 220  INVERSE 
  25. 230  VTAB 2: HTAB 5: PRINT "@@333@@Q@@@@@QQQQQ@Q@@@Q@QQQQQ@@"
  26. 240  VTAB 3: HTAB 5: PRINT "@@@3@@@Q@@@@@Q@@@Q@Q@@@Q@Q@@@@@@"
  27. 250  VTAB 4: HTAB 5: PRINT "@@@3@@@Q@@@@@Q@@@Q@Q@@@Q@QQQQQ@@"
  28. 260  VTAB 5: HTAB 5: PRINT "@@@3@@@Q@@@@@Q@@@Q@@Q@Q@@Q@@@@@@"
  29. 270  VTAB 6: HTAB 5: PRINT "@@333@@QQQQQ@QQQQQ@@@Q@@@QQQQQ@@"
  30. 280  NORMAL 
  31. 290  REM 
  32. 300  REM  LET'S DO SECOND LINE
  33. 310  REM  (USING NORMAL MODE)
  34. 320  REM 
  35. 330  VTAB 8: HTAB 11: PRINT "**J*******J*L***L**"
  36. 340  VTAB 9: HTAB 11: PRINT "**JJ*****JJ**L*L***"
  37. 350  VTAB 10: HTAB 11: PRINT "**J*J***J*J***L****"
  38. 360  VTAB 11: HTAB 11: PRINT "**J**J*J**J***L****"
  39. 370  VTAB 12: HTAB 11: PRINT "**J***J***J***L****"
  40. 380  REM 
  41. 390  REM  NOW LAST LINE
  42. 400  REM  -> USE FLASH! <-
  43. 410  REM 
  44. 420  FLASH 
  45. 430  VTAB 14: HTAB 3: PRINT "UU&&&&&U77777U77777UDUUUUU&&&&&UUDUU"
  46. 440  VTAB 15: HTAB 3: PRINT "UU&UUU&U7UUU7U7UUU7UDUUUUU&UUUUUUDUU"
  47. 450  VTAB 16: HTAB 3: PRINT "UU&&&&&U77777U77777UDUUUUU&&&&&UUDUU"
  48. 460  VTAB 17: HTAB 3: PRINT "UU&UUU&U7UUUUU7UUUUUDUUUUU&UUUUUUUUU"
  49. 470  VTAB 18: HTAB 3: PRINT "UU&UUU&U7UUUUU7UUUUUDDDDDU&&&&&UUDUU"
  50. 480  NORMAL 
  51. 490  FOR M = 1 TO 3000: NEXT M
  52. 500  HOME 
  53. 510  PRINT "DON'T YOU?"
  54. 520  FOR M = 1 TO 3000: NEXT M
  55. 530  REM 
  56. 540  REM  CLEAR SCREEN TO COLOR
  57. 550  REM 
  58. 560  VTAB 1: HTAB 1
  59. 570 J = 34: INVERSE : GOSUB 600: NORMAL 
  60. 580  FOR M = 1 TO 3000: NEXT M
  61. 590  HOME : END 
  62. 600  FOR X = 1 TO 800: PRINT  CHR$(J);: NEXT X
  63. 610  RETURN